← Index
NYTProf Performance Profile   
For flows_to_es.pl
  Run on Mon May 9 23:27:59 2016
Reported on Mon May 9 23:28:09 2016

Filename(eval 87)[/usr/share/perl5/Sub/Quote.pm:5]
StatementsExecuted 42 statements in 613µs
Eval Invoked At/usr/share/perl5/Sub/Quote.pm line 5
Sibling evals1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
22252µs10.0msSearch::Elasticsearch::Cxn::HTTPTiny::::newSearch::Elasticsearch::Cxn::HTTPTiny::new
11112µs23µsSub::Quote::::BEGIN@5 Sub::Quote::BEGIN@5
1117µs7µsMethod::Generate::Constructor::::BEGIN@8.21 Method::Generate::Constructor::BEGIN@8.21
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1{
222µs my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
31300ns my $default_for_default_5fqs_5fparams = ${$_[1]->{"\$default_for_default_5fqs_5fparams"}};
41200ns my $default_for_handle_5fargs = ${$_[1]->{"\$default_for_handle_5fargs"}};
5259µs234µs
# spent 23µs (12+11) within Sub::Quote::BEGIN@5 which was called: # once (12µs+11µs) by Sub::Quote::_clean_eval at line 5
no warnings 'closure';
# spent 23µs making 1 call to Sub::Quote::BEGIN@5 # spent 11µs making 1 call to warnings::unimport
6
# spent 10.0ms (52µs+9.98) within Search::Elasticsearch::Cxn::HTTPTiny::new which was called 2 times, avg 5.02ms/call: # once (46µs+7.94ms) by Search::Elasticsearch::Cxn::Factory::__ANON__[/opt/flows/lib/lib/perl5/Search/Elasticsearch/Cxn/Factory.pm:28] at line 53 of Sub/Defer.pm # once (6µs+2.04ms) by Search::Elasticsearch::Cxn::Factory::__ANON__[/opt/flows/lib/lib/perl5/Search/Elasticsearch/Cxn/Factory.pm:28] at line 23 of /opt/flows/lib/lib/perl5/Search/Elasticsearch/Cxn/Factory.pm
sub Search::Elasticsearch::Cxn::HTTPTiny::new {
7package Method::Generate::Constructor;
8
# spent 7µs within Method::Generate::Constructor::BEGIN@8.21 which was called: # once (7µs+0s) by Sub::Quote::_clean_eval at line 13
BEGIN {
911µs $^H = "2018";
101500ns ${^WARNING_BITS} = "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\003";
1116µs %^H = (
12 );
131497µs17µs}
# spent 7µs making 1 call to Method::Generate::Constructor::BEGIN@8.21
141600ns my $class = shift;
151300ns $class = ref($class) if ref($class);
161300ns if ($class ne "Search::Elasticsearch::Cxn::HTTPTiny") {
17 if ($Moo::MAKERS{$class}) {
18 Moo->_constructor_maker_for($class,"Search::Elasticsearch::Cxn::HTTPTiny");
19 return $class->new(@_);
20 } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) {
21 return $meta->new_object($class->BUILDARGS(@_));
22 }
23 }
2412µs17.94ms my $args = $class->BUILDARGS(@_);
# spent 7.94ms making 1 call to Search::Elasticsearch::Role::Cxn::HTTP::BUILDARGS
251700ns die "BUILDARGS did not return a hashref" unless ref($args) eq 'HASH';
2613µs if (my @missing = grep !exists $args->{$_}, qw(host logger port serializer uri)) {
27 die "Missing required arguments: ".join(', ', sort @missing);
28 }
2912µs my $new = bless({}, $class);;
3014µs $new->{"_pid"} = (
31 exists $args->{"_pid"}
32 ? $args->{"_pid"}
33 : "3737"
34 );
351700ns $new->{"dead_timeout"} = (
36 exists $args->{"dead_timeout"}
37 ? $args->{"dead_timeout"}
38 : "60"
39 );
401600ns if (exists $args->{"default_headers"}) {
41 $new->{"default_headers"} = $args->{"default_headers"};
42 }
4312µs12µs $new->{"default_qs_params"} = (
# spent 2µs making 1 call to Search::Elasticsearch::Role::Cxn::__ANON__[/opt/flows/lib/lib/perl5/Search/Elasticsearch/Role/Cxn.pm:27]
44 exists $args->{"default_qs_params"}
45 ? $args->{"default_qs_params"}
46 : $default_for_default_5fqs_5fparams->($new)
47 );
481200ns if (exists $args->{"handle"}) {
49 $new->{"handle"} = $args->{"handle"};
50 }
5112µs11µs $new->{"handle_args"} = (
# spent 1µs making 1 call to Search::Elasticsearch::Role::Cxn::__ANON__[/opt/flows/lib/lib/perl5/Search/Elasticsearch/Role/Cxn.pm:26]
52 exists $args->{"handle_args"}
53 ? $args->{"handle_args"}
54 : $default_for_handle_5fargs->($new)
55 );
561900ns if (exists $args->{"host"}) {
57 $new->{"host"} = $args->{"host"};
58 }
591800ns if (exists $args->{"is_https"}) {
60 $new->{"is_https"} = $args->{"is_https"};
61 }
6211µs if (exists $args->{"logger"}) {
63 $new->{"logger"} = $args->{"logger"};
64 }
651800ns if (exists $args->{"max_content_length"}) {
66 $new->{"max_content_length"} = $args->{"max_content_length"};
67 }
681600ns $new->{"max_dead_timeout"} = (
69 exists $args->{"max_dead_timeout"}
70 ? $args->{"max_dead_timeout"}
71 : "3600"
72 );
7313µs $new->{"next_ping"} = (
74 exists $args->{"next_ping"}
75 ? $args->{"next_ping"}
76 : "0"
77 );
781500ns $new->{"ping_failures"} = (
79 exists $args->{"ping_failures"}
80 ? $args->{"ping_failures"}
81 : "0"
82 );
831600ns $new->{"ping_timeout"} = (
84 exists $args->{"ping_timeout"}
85 ? $args->{"ping_timeout"}
86 : "2"
87 );
881800ns if (exists $args->{"port"}) {
89 $new->{"port"} = $args->{"port"};
90 }
911600ns $new->{"request_timeout"} = (
92 exists $args->{"request_timeout"}
93 ? $args->{"request_timeout"}
94 : "30"
95 );
9612µs if (exists $args->{"scheme"}) {
97 $new->{"scheme"} = $args->{"scheme"};
98 }
991700ns if (exists $args->{"serializer"}) {
100 $new->{"serializer"} = $args->{"serializer"};
101 }
1021700ns $new->{"sniff_request_timeout"} = (
103 exists $args->{"sniff_request_timeout"}
104 ? $args->{"sniff_request_timeout"}
105 : "2"
106 );
1071600ns $new->{"sniff_timeout"} = (
108 exists $args->{"sniff_timeout"}
109 ? $args->{"sniff_timeout"}
110 : "1"
111 );
1121200ns if (exists $args->{"ssl_options"}) {
113 $new->{"ssl_options"} = $args->{"ssl_options"};
114 }
1151600ns if (exists $args->{"uri"}) {
116 $new->{"uri"} = $args->{"uri"};
117 }
1181700ns if (exists $args->{"userinfo"}) {
119 $new->{"userinfo"} = $args->{"userinfo"};
120 }
12116µs return $new;
122 }
12311µs $_QUOTED->[3] = \&Search::Elasticsearch::Cxn::HTTPTiny::new
124}
12517µs1;
126
127;
Report produced by the NYTProf 5.06 Perl profiler, developed by Tim Bunce and Adam Kaplan.